home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / SCRNE1.SDA / KALEIDOSCOPE! (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  38 lines
  1. 10 REM  KALEIDOSCOPE!
  2. 20 FORI=49152TO49444:READA%:POKEI,A%:NEXT:POKE53281,6
  3. 30 PRINT"[147]KALEIDOSCOPE!"
  4. 40 A$="[147]THANK YOU![144]"
  5. 50 SYS49152:POKE53281,7:POKE53280,8:END
  6. 60 REM THIS MC ROUTINE MAKES THE SCREEN INTO REVERSE VIDEO, THEN PLACES MIRROREDCOLOR IMAGES INTO THE COLOR RAM. PRESS  ANY KEY TO EXIT ROUTINE WITH MESSAGE.
  7. 70 REM THE MESSAGE WILL BE THE LAST     STRING DESCRIBED BEFORE CALLING THE MC. BE SURE TO SET SCREEN COLORS AND ARRANGESCREEN BEFORE CALLING MACHINE CODE.
  8. 49152 DATA169,0,133,198,141,32,208,133,250,169
  9. 49162 DATA3,133,251,162,3,160,0,230,251,177
  10. 49172 DATA250,73,128,145,250,136,208,247,202,48
  11. 49182 DATA6,208,238,160,232,48,236,165,162,41
  12. 49192 DATA15,141,36,193,165,162,77,4,220,41
  13. 49202 DATA31,56,233,12,48,244,141,34,193,165
  14. 49212 DATA162,77,18,208,41,15,56,233,3,48
  15. 49222 DATA244,141,35,193,32,126,192,32,163,192
  16. 49232 DATA32,200,192,32,237,192,165,198,240,203
  17. 49242 DATA160,2,177,71,153,114,192,136,208,248
  18. 49252 DATA169,147,32,22,231,162,0,177,71,240
  19. 49262 DATA14,141,122,192,189,0,255,32,210,255
  20. 49272 DATA232,224,0,208,245,96,32,18,193,169
  21. 49282 DATA243,172,35,193,240,11,56,233,40,176
  22. 49292 DATA3,206,32,193,136,208,245,56,237,34
  23. 49302 DATA193,176,3,206,32,193,141,31,193,32
  24. 49312 DATA24,193,96,32,18,193,169,244,172,35
  25. 49322 DATA193,240,11,56,233,40,176,3,206,32
  26. 49332 DATA193,136,208,245,24,109,34,193,144,3
  27. 49342 DATA238,32,193,141,31,193,32,24,193,96
  28. 49352 DATA32,18,193,169,243,172,35,193,240,11
  29. 49362 DATA24,105,40,144,3,238,32,193,136,208
  30. 49372 DATA245,56,237,34,193,176,3,206,32,193
  31. 49382 DATA141,31,193,32,24,193,96,32,18,193
  32. 49392 DATA169,244,172,35,193,240,11,24,105,40
  33. 49402 DATA144,3,238,32,193,136,208,245,24,109
  34. 49412 DATA34,193,144,3,238,32,193,141,31,193
  35. 49422 DATA32,24,193,96,169,217,141,32,193,96
  36. 49432 DATA141,31,193,173,36,193,141,244,217,96
  37. 49442 DATA0,0,0
  38.